home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / CDEF / stdio.def < prev    next >
Text File  |  1996-04-02  |  3KB  |  100 lines
  1. (* Copyright (c) xTech 1992,95.  All Rights Reserved *)
  2. <*+ CSTDLIB  *>
  3. <*+ NOHEADER *>
  4. <*+ M2EXTENSIONS *>
  5. <*+ M2ADDTYPES *>
  6. <*# IF __GEN_C__ THEN *>
  7. <*+ GENTYPEDEF *>
  8. <*# END *>
  9. DEFINITION MODULE [2] stdio;
  10.  
  11. FROM SYSTEM IMPORT size_t, ADDRESS, int, BYTE;
  12. FROM xmRTS  IMPORT X2C_pCHAR;
  13.  
  14. <*# IF __GEN_C__ THEN *>
  15. VAR
  16.   SEEK_SET-: int;
  17.   SEEK_CUR-: int;
  18.   SEEK_END-: int;
  19.   EOF-     : int;
  20. <*# ELSE *>
  21. CONST
  22.   SEEK_SET = 0;
  23.   SEEK_CUR = 1;
  24.   SEEK_END = 2;
  25.   EOF      =-1;
  26. <*# END *>
  27.  
  28. TYPE
  29.   FILE = RECORD END;
  30.  
  31. VAR (* Standard I/O predefined streams (POINTER TO FILE) *)
  32.   stdin- : POINTER TO FILE;
  33.   stdout-: POINTER TO FILE;
  34.   stderr-: POINTER TO FILE;
  35.  
  36. PROCEDURE clearerr(VAR f: FILE);
  37. PROCEDURE fclose(VAR f: FILE): int;
  38. PROCEDURE fflush(VAR f: FILE): int;
  39. PROCEDURE fgetc(VAR f: FILE): int;
  40. PROCEDURE fgets(VAR s: ARRAY OF CHAR; n: int; VAR f: FILE): ADDRESS;
  41. PROCEDURE fileno(VAR f: FILE): int;
  42. PROCEDURE fopen(path,mode: X2C_pCHAR): ADDRESS;
  43. (* returns POINTER TO FILE *)
  44.  
  45. PROCEDURE fprintf(VAR f: FILE; format: X2C_pCHAR; SEQ x: BYTE): int;
  46. PROCEDURE fputc(c: int; VAR f: FILE): int;
  47. PROCEDURE fputs(s: X2C_pCHAR; VAR f: FILE): int;
  48. PROCEDURE fread(ptr: ADDRESS; size,n: size_t; VAR f: FILE): size_t;
  49.  
  50. PROCEDURE freopen(path,mode: X2C_pCHAR; VAR oldfile: FILE): ADDRESS;
  51. (* returns POINTER TO FILE *)
  52.  
  53. PROCEDURE fdopen(handle: int; type: X2C_pCHAR): ADDRESS;
  54. (* returns POINTER TO FILE *)
  55.  
  56. PROCEDURE fscanf(VAR f: FILE; format: X2C_pCHAR; SEQ x: BYTE): int;
  57. PROCEDURE fseek(VAR f: FILE; offset: LONGINT; whence: int): int;
  58. PROCEDURE ftell(VAR f: FILE): LONGINT;
  59. PROCEDURE fwrite(ptr: ADDRESS; size,n: size_t; VAR f: FILE): size_t;
  60.  
  61. PROCEDURE gets(VAR s: ARRAY OF CHAR): ADDRESS;
  62. PROCEDURE perror(s: X2C_pCHAR);
  63. PROCEDURE printf(format: X2C_pCHAR; SEQ x: BYTE): int;
  64. PROCEDURE puts(s: X2C_pCHAR): int;
  65. PROCEDURE rename(oldnam,newname: X2C_pCHAR): int;
  66. PROCEDURE rewind(VAR f: FILE);
  67.  
  68. PROCEDURE scanf(format: X2C_pCHAR; SEQ x: BYTE): int;
  69. PROCEDURE setbuf(VAR f: FILE; buf: ADDRESS);
  70. PROCEDURE setvbuf(VAR f: FILE; buf: ADDRESS; type: int; size: size_t): int;
  71.  
  72. PROCEDURE sprintf(VAR s: ARRAY OF CHAR; format: X2C_pCHAR; SEQ x: BYTE): int;
  73. PROCEDURE sscanf(s,format: X2C_pCHAR; SEQ x: BYTE): int;
  74.  
  75. PROCEDURE tmpfile(): ADDRESS;
  76. (* returns POINTER TO FILE *)
  77.  
  78. PROCEDURE ungetc(c: int; VAR f: FILE): int;
  79.  
  80. PROCEDURE vfprintf(VAR f: FILE; format: X2C_pCHAR; args: ADDRESS): int;
  81. PROCEDURE vfscanf(VAR f: FILE; format: X2C_pCHAR; args: ADDRESS): int;
  82. PROCEDURE vprintf(format: X2C_pCHAR; args: ADDRESS): int;
  83. PROCEDURE vscanf(format: X2C_pCHAR; args: ADDRESS): int;
  84. PROCEDURE vsprintf(VAR s: ARRAY OF CHAR; format: X2C_pCHAR; args: ADDRESS): int;
  85. PROCEDURE vsscanf(VAR s: ARRAY OF CHAR; format: X2C_pCHAR; args: ADDRESS): int;
  86.  
  87. PROCEDURE fgetpos(VAR f: FILE; VAR fp: LONGINT): int;
  88. PROCEDURE fsetpos(VAR f: FILE; VAR fp: LONGINT): int;
  89.  
  90. PROCEDURE putchar(c: int): int;
  91. PROCEDURE getchar(): int;
  92. PROCEDURE putc(c: int; VAR f: FILE): int;
  93. PROCEDURE getc(VAR f: FILE): int;
  94. PROCEDURE remove(path: X2C_pCHAR): int;
  95.  
  96. PROCEDURE feof(VAR f: FILE): int;
  97. PROCEDURE ferror(VAR f: FILE): int;
  98.  
  99. END stdio.
  100.